home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs13.d81
/
bbomb.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
6KB
|
159 lines
1 PRINT"[147]":GOSUB100
2 IFBO=0THEN50
3 A=PEEK(56320):IFA=123THENX=X-S
4 IFA=119THENX=X+S:IFA=123THENX=X-S
5 IFX>255THENX=22
6 IFX<22THENX=255
7 POKEV+12,X
8 Z=Z-1.5*D:IFZ<24THENZ=255
9 IFZ>255THENZ=24
10 POKEV+6,Z
11 CM=CM+H:POKEV+4,CM:POKEV+14,CM+25:IFCM=204THENH=H*-1
12 IFCM=24THENH=H*-1
13 GETA$:T=VAL(A$):IFT>0ANDT<10THENPRINT"";TAB(13)"SPEED ";T;"":S=T/1.75
14 IFA>117THENGOTO3
15 FORI=MTOM+24:POKEI,0:NEXT:POKEM+24,15:POKEM+5,31:POKEM+6,0:POKEM+4,35
16 BO=BO-1:PRINT"":PRINTTAB(34)BO;"[157] "
17 D=INT(RND(1)*DS+0):D=D-SUB:POKEV+30,0:POKEV+3,90:POKEV+2,X
18 FORI=1TO12
19 A=PEEK(56320):IFA=119ORA=103THENX=X+S
20 IFA=123ORA=107THENX=X-S
21 IFX>255THENX=22
22 IFX<22THENX=255
23 POKEV+12,X
24 Z=Z-1.5*D:IFZ>255THENZ=24
25 IFZ<24THENZ=255
26 POKEV+6,Z
27 CM=CM+H:POKEV+4,CM:POKEV+14,CM+25:IFCM=24THENH=H*-1
28 IFCM=204THENH=H*-1
29 POKEV,205:POKEV+3,90+I*10:COL=PEEK(V+30):IFCOL=142ORCOL=206THENGOTO33
30 POKEM,240-I*5:POKEM+1,240-I*5:NEXT
31 POKEM,0:POKEM+1,0:POKEM+4,0:D=INT(RND(1)*DS+0):D=D-SUB
32 POKEV+2,0:MI=MI+1:PRINTTAB(34)"";MI:GOTO2
33 POKE2043,203:POKEV+2,0:POKEV+28,57:POKEM,255:POKEM+1,4:POKEM+2,0
34 POKEM+3,8:POKEM+5,63:POKEM+6,90:POKEM+4,129
35 FORI=1TO3:FORJ=1TO30:POKEV+42,J/10:NEXT:NEXT
36 POKEV+28,49:POKEV+30,0:POKE2043,201:POKEV+42,12:FORI=MTOM+24:POKEI,0:NEXT
37 D=INT(RND(1)*DS+0):D=D-SUB
38 HI=HI+1:PRINTTAB(34)"";HI:GOTO2
50 AV=HI/20
51 IFAV>=.95THENAV$="**GENERAL**":GOTO57
52 IFAV>=.85THENAV$=" MAJOR ":GOTO57
53 IFAV>=.75THENAV$=" CAPTAIN ":GOTO57
54 IFAV>=.50THENAV$=" SERGEANT ":GOTO57
55 IFAV>=.25THENAV$=" CORPORAL ":GOTO57
56 AV$=" PRIVATE "
57 PRINT" GAME OVER "
58 FORI=1TO300:NEXTI
59 FORJ=1TO20:PRINT"[145] RANK:";AV$:FORI=1TO50:NEXTI
60 PRINT"[145] RANK:[146]";AV$:FORI=1TO50:NEXTI:NEXTJ
61 PRINT"[145] ANOTHER GAME(Y/N)? "
62 GETAN$:IFAN$<>"Y"ANDAN$<>"N"THEN62
63 IFAN$="N"THENPOKE254,0:SYS254
64 PRINT"[145] WHICH LEVEL OF PLAY 1-6
65 [161]LE$:[139]LE$[179]"1"[176]LE$[177]"6"[167]65
66 LE[178][197](LE$):[139]LE[178]1[167]DS[178]2:SUB[178][171]1
67 [139]LE[178]2[167]DS[178]3:SUB[178]0
68 [139]LE[178]3[167]DS[178]3:SUB[178]1
69 [139]LE[178]4[167]DS[178]4:SUB[178]2
70 [139]LE[178]5[167]DS[178]6:SUB[178]3
71 [139]LE[178]6[167]DS[178]7:SUB[178]4
72 D[178][181]([187](1)[172]DS[170]0):D[178]D[171]SUB
73 X[178]150:Y[178]130:S[178]1:Z[178]0:BO[178]20:HI[178]0:MI[178]0:T[178]1
74 [129]I[178]M[164]M[170]24:[151]I,0:[130]
75 [153]"ON LEVEL ";LE;"CMD WAIT"
76 [153]"":[153][163]13)"SPEED 1"
77 [153]"":[153][163]35)"20"
78 [153][163]34)" "
79 [153][163]34)" "
80 [137]2
100 V[178]53248:M[178]54272:CM[178]24:CN[178]25:H[178].5:X[178]150:Y[178]130:S[178]1:Z[178]0:BO[178]20:HI[178]0:MI[178]0
101 [151]2040,204:[151]2041,202:[151]2042,205:[151]2043,201:[151]2044,204
102 [151]2045,204:[151]2046,200:[151]2047,205:[151]V,205:[151]V[170]1,200
103 [151]V[170]4,24:[151]V[170]5,63:[151]V[170]6,0:[151]V[170]7,205:[151]V[170]8,150:[151]V[170]9,170
104 [151]V[170]10,60:[151]V[170]11,183:[151]V[170]12,150:[151]V[170]13,80:[151]V[170]14,49:[151]V[170]15,57
105 [151]V[170]23,149:[151]V[170]28,49:[151]V[170]29,133:[151]V[170]37,13:[151]V[170]38,5:[151]V[170]39,9
106 [151]V[170]40,14:[151]V[170]41,15:[151]V[170]42,12:[151]V[170]43,9:[151]V[170]44,9:[151]V[170]45,14
107 [151]V[170]46,15:[151]53280,2
108 [129]I[178]0[164]24:[151]M[170]I,0:[130]
109 [151]M[170]5,85:[151]M[170]6,85:[151]M[170]12,85:[151]M[170]13,85:[151]53280,2
110 [153]"LOAD";[163]6)" WELCOME TO BALLOON BLITZ":[153]""
111 [151]M[170]24,15:[151]M[170]4,33:[151]M[170]11,17
112 [129]FF[178]1[164]6:[135]H1,L1,H2,L2:[151]M[170]1,H1:[151]M,L1:[151]M[170]8,H2:[151]M[170]7,L2
113 [153][163]9)"ON ** YOUR MISSION ** "
114 [139]H1[178]50[167][129]T[178]1[164]200:[130]
115 [129]T[178]1[164]100:[130]
116 [153][163]9)"WAITON ** YOUR MISSION ** ":[130]FF
117 [129]I[178]M[164]M[170]24:[151]I,0:[130]
118 [153]"CONT <PATROL FIELD IN A HOT AIR BALLOON>"
119 [153]" <DESTROY ENEMY TANKS IN YOUR SECTOR>"
120 [153]" PUT JOYSTICK IN PORT 2"
121 [153]" PUSH FIRE BUTTON TO DROP BOMBS"
122 [153]" CONTROL YOUR SPEED WITH THE NUMBER KEYS":[153][163]16)"1=SLOWEST"
123 [153][163]16)"9=FASTEST":[153][163]12)"ONE MOMENT PLEASE"
124 [129]I[178]0[164]5:[129]N[178]0[164]62:[135]Q:[151]12800[170](I[172]64)[170]N,Q:[130]:[130]
125 [129]I[178]1[164]10:[161]A$:[130]
126 [153]"ON ENTER LEVEL OF PLAY 1 THROUGH 6"
127 [153][163]16)"1=EASIEST":[153][163]16)"6=HARDEST"
128 [161]LE$:[139]LE$[179]"1"[176]LE$[177]"6"[167]128
129 A$[178]"1":LE[178][197](LE$)
130 [139]LE[178]1[167]DS[178]2:SUB[178][171]1
131 [139]LE[178]2[167]DS[178]3:SUB[178]0
132 [139]LE[178]3[167]DS[178]3:SUB[178]1
133 [139]LE[178]4[167]DS[178]4:SUB[178]2
134 [139]LE[178]5[167]DS[178]6:SUB[178]3
135 [139]LE[178]6[167]DS[178]7:SUB[178]4
136 D[178][181]([187](1)[172]DS[170]0):D[178]D[171]SUB
137 [153]"LOAD":[151]53280,0:[151]53281,0
138 [129]I[178]1[164]17
139 [153]" WAIT"
140 [130]
141 [153][163]21)"ONSTEP(null)"
142 [153]" WAIT"
143 [153][163]21)"ONSTEP(null)STEP (null)STEP(null)"
144 [153]" WAIT"
145 [153][163]20)"ONSTEP(null)STEP (null) (null) (null)"
146 [153]" WAIT"
147 [153][163]19)"ONSTEP (null) (null)(null) "
148 [153]"PRINT WAIT"
149 [153][163]19)"ONSTEP (null)"
150 [153]"PRINT WAIT"
151 [153]"PRINT WAIT"
152 [153]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREWAIT"
153 [153]" LEVEL:";LE;"CMD WAIT"
154 [129]I[178]0[164]31
155 [151]1984[170]I,160
156 [151]56256[170]I,5
157 [130]
158 [153]"";[163]33)"BOMBS"
159 [153][163]33)"LEFT"
160 [153][163]33)"HITS"
161 [153][163]33)"MISS"
162 [153][163]13)"SPEED ";A$;""
163 [153]"";[163]35)"20"
164 [151]V[170]21,255
165 [142]
200 [131]25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162,42,62,31,165,50,60
201 [131]37,162
202 [131]0,127,0,1,255,192,3,255,224,3,255,224
203 [131]7,255,240,7,255,240,7,255,240,3,255,224
204 [131]3,255,224,3,255,224,2,255,160,1,127,64
205 [131]1,62,64,0,156,128,0,156,128,0,73,0,0,73,0
206 [131]0,62,0,0,62,0,0,62,0,0,28,0
207 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
208 [131]127,224,63,255,224,63,255,224,0,127,224,0,63,192,63,255,252
209 [131]127,255,254,255,255,255,255,255,255,127,255,254,63,255,252
210 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
211 [131]0,0,0,0,0,0,0,0,0,0,102,0,0,126,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60
212 [131]0,0,24,0
213 [131]10,170,160,42,170,168,170,170,170,170,170,170,170,170,170,170,170,170
214 [131]170,170,170,170,170,170,170,170,170,42,255,42,29,170,56,0,170,0
215 [131]0,170,0,0,170,0,0,170,0,0,170,0,0,170,0,0,170,0,97,170,134,170,170
216 [131]170,42,170,168
217 [131]0,60,0,0,255,0,3,255,192,15,253,240,15,63,240,63,255,252,63,255,252
218 [131]63,247,220,63,255,252,63,247,220,61,255,252,63,255,252,15,255,240
219 [131]15,247,240,3,255,192,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0
220 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,255
221 [131]224,31,255,248,63,255,252,127,255,254,255,255,255,255,255,255,255
222 [131]255,255,127,255,254,63,255,252,31,255,248,7,255,224